home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / eupchk.cfg < prev    next >
Text File  |  1991-10-19  |  778b  |  45 lines
  1. /*******************************************************************
  2. /*
  3. /*  EUP ファイルの音色データファイル名を調べる
  4. /*
  5. /*
  6.  
  7. main {
  8.     wind_init()
  9.     filename = "";
  10.     file_select("filename","EUPHONY 使用音色チェック","-1", "", "*.eup",0)
  11.     if ( VAL ! 0 )
  12.     {    return    (-1)
  13.     }
  14.     fopen( filename,"rb")
  15.     PATH = VAL;
  16.     if ( PATH < 0 )
  17.     {    wind_str_color(C_RED)
  18.         echo("\n\tFILE OPEN ERROR!!\n")
  19.         wait(5)
  20.         wind_close()
  21.         return    (-1)
  22.     }
  23.     echo("\n")
  24.  
  25.     fgets("TITLE",33,PATH)
  26.  
  27.     fseek(PATH,1762,0)
  28.     fgets("FM",9,PATH)
  29.  
  30.     fseek(PATH,1770,0)
  31.     fgets("PCM",9,PATH)
  32.     fclose(PATH)
  33.  
  34.     tabset(4)
  35.     echo("\tFILE  : \(filename)\n")
  36.     echo("\tTITLE : \(TITLE)\n")
  37.     echo("\tFM    : \(FM).fmb\n")
  38.     echo("\tPCM   : \(PCM).pmb\n")
  39.  
  40.     wait(30)
  41.     wind_close()
  42.     return (0)
  43. }
  44.  
  45.